home *** CD-ROM | disk | FTP | other *** search
- 10 ' SAVE "DRS3SS.BAS",A
- 20 CLEAR ,,512,600000,0:DEFINT A-Z:SC=0:MOUSE 0:CONSOLE 0,25,0:WIDTH 80,25:SCREEN@ SC:A=0:C23=25
- 30 ON ERROR GOTO *ERR
- 40 FILES
- 50 ' INPUT "INPUT FILENAME=",N$
- 60 N$="FREE6"
- 70 OPEN "I",#1,N$+".TIF":CLS:LOCATE 0,24
- 80 'OPEN "I",#1,"\FREEWAR3.TIF":CLS:LOCATE 0,24
- 90 INPUT R$:IF R$="" THEN DSW=1:GOTO 120 ELSE DSW=0
- 100 R=VAL(R$):IF R=0 THEN 120
- 110 FOR I=1 TO R:LINE INPUT #1,A$:NEXT I:R$="":DSW=1:A=I-2
- 120 WHILE NOT(EOF(1))
- 130 LINE INPUT #1,A$:A=A+1
- 140 IF R$="" THEN 170
- 150 IF DSW=0 AND INSTR(A$,R$)=0 THEN 220
- 160 IF DSW=0 AND INSTR(A$,R$)>0 THEN R$="":DSW=1
- 170 LOCATE 0,C23:PRINT USING "##### ";A;:PRINT A$,"MODE=";SC;':INPUT SS$
- 180 LOAD@ A$
- 190 IF MOUSE(2,0) THEN WHILE MOUSE(2,0)=-1:WEND:WHILE MOUSE(2,0)=0:WEND
- 200 LOCATE 0,C23:PRINT USING "##### ";A;:PRINT A$,"MODE=";SC;:ORX$=R$:LOCATE ,24':INPUT R$
- 210 IF DSW=1 AND R$<>"" THEN DSW=0
- 220 WEND
- 230 END
- 240 *ERR
- 250 IF ERL=180 AND ERR<>28 THEN SC=(SC+1) MOD 3:SCREEN@ SC:RESUME 180
- 260 IF ERL=180 AND ERR=28 THEN LOCATE 0,C23:PRINT A$,"ERR=";ERR,"ERL=";ERL:FOR J=0 TO 1000:NEXT J:CLS 4:RESUME 190
- 270 PRINT ERR,ERL
- 280 ON ERROR GOTO 0
- 290 END
-